home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 166 - Disc 2 / MF_UK_166_2.iso / pc / Files / Scenes / HOME.DIR / Internal_66_Clickable Links (Alongi).ls < prev    next >
Encoding:
Text File  |  2006-01-12  |  1.3 KB  |  54 lines

  1. property scrollmode, Sp, cStart
  2. global currentMember, pointClicked, wordNum, wordText2, wordText
  3.  
  4. on mouseUp me
  5.   wordText = currentMember.word[wordNum]
  6.   if wordText contains "@" then
  7.     gotoNetPage("mailto:" & wordText)
  8.   else
  9.     nothing()
  10.   end if
  11.   if wordText.char[1..7] = "http://" then
  12.     gotoNetPage(wordText)
  13.   else
  14.     nothing()
  15.   end if
  16.   if wordText.char[1..8] = "https://" then
  17.     gotoNetPage(wordText)
  18.   else
  19.     nothing()
  20.   end if
  21.   if wordText.char[1..4] = "www." then
  22.     gotoNetPage("http://" & wordText)
  23.   else
  24.     nothing()
  25.   end if
  26. end
  27.  
  28. on linkUpdate me
  29.   t = sprite(me.spriteNum).member
  30.   repeat with i = 1 to t.word.count
  31.     if (t.word[i].char[1..7] = "http://") or (t.word[i] contains "@") or (t.word[i].char[1..4] = "www.") or (t.word[i].char[1..8] = "https://") then
  32.       t.word[i].color = rgb(204, 204, 204)
  33.     end if
  34.   end repeat
  35. end
  36.  
  37. on mouseWithin me
  38.   pointClicked = the mouseLoc
  39.   currentMember = sprite(me.spriteNum).member
  40.   wordNum = sprite(me.spriteNum).pointToWord(pointClicked)
  41.   if wordNum <> -1 then
  42.     wordText2 = currentMember.word[wordNum]
  43.     if (wordText2.char[1..7] = "http://") or (wordText2 contains "@") or (wordText2.char[1..4] = "www.") or (wordText2.char[1..8] = "https://") then
  44.       cursor(280)
  45.     else
  46.       cursor(-1)
  47.     end if
  48.   end if
  49. end
  50.  
  51. on mouseLeave
  52.   cursor(-1)
  53. end
  54.